home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
turbovis
/
tvutil01.zip
/
ALEXLEVI.EXE
/
ALEXLEVI
/
DEMO
/
DEMOUSE.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1994-04-12
|
2KB
|
101 lines
(*
****************************************************************************
* *
* This procedure was made by Alex Levitas' "Mouse Cursor Editor". *
* *
****************************************************************************
This procedure changes mouse cursor icon in graphic mode.
W A R N I N G ! ! !
This procedure DOES NOT check mouse existence, DOES NOT initialize mouse,
but ONLY change icon of active initialized mouse in graphic mode ! !
PROCEDURE WILL WORK ONLY WITH PASCAL 6.0 OR HIGHER !
To use this procedure in your program, insert the directive
{$I DEMOUSE.PAS}
If you want to use more than one changed icon in your program, you
must change procedure name in each source file.
*)
procedure ChangeMouseCursor;
type
Mask = array [0..15] of word;
Graph_Mouse = record
ScreenMask,
CursorMask : Mask;
HotX,
HotY : word;
end;
const
MouseCursor : Graph_Mouse = (
ScreenMask:(
57375,
57375,
57375,
49167,
32775,
3,
3,
1,
3,
3,
32775,
49167,
57375,
57375,
57375,
65535
);
CursorMask:(
0,
4032,
4032,
4128,
8464,
16648,
16648,
16652,
16904,
17416,
8208,
4128,
4032,
4032,
0,
0
);
HotX:(7); HotY:(7));
var
Segm,Offs : word;
begin
Segm:=seg(MouseCursor.ScreenMask);
Offs:=ofs(MouseCursor.ScreenMask);
asm
PUSH ES
MOV AX, Segm
MOV ES, AX
MOV DX, Offs
MOV BX, MouseCursor.HotX
MOV CX, MouseCursor.HotY
MOV AX, 9
INT 33h
POP ES
end;
end;